Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next

        Cells.FormatConditions.Delete

        With Target

            .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"

            With .FormatConditions(1).Interior
                .ThemeColor = xlThemeColorDark1
            End With

        End With

        Call (Target.EntireColumn)
        Call (Target.EntireRow)

End Sub

Sub (Target As Range)

    With Target

        .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"

        With .FormatConditions(.FormatConditions.Count).Interior
            .ThemeColor = xlThemeColorAccent4
            .TintAndShade = 0.8
        End With

    End With

End Sub
